fibs = 1:1:zipWith (+) fibs (tail fibs)
euler_025 = (fst.head) $ dropWhile ((<10^999).snd) (zip [1..] fibs)
	